﻿<%@ Page language="VB"%>
 <%						
		
		dim FolderToSave as String = Server.MapPath("") & "\UploadedFiles\"
		dim myFile as HttpPostedFile = Request.Files(0)
		if not myfile is nothing andalso myFile.FileName <>"" then
			myFile.SaveAs(FolderToSave & System.IO.Path.GetFileName(myFile.FileName))
			Response.Write("File " & myFile.FileName & " was successfully uploaded.")
		end if
		Response.Write("<br>") 'At least one symbol should be sent to response!!!		
%>
